AND ARRAY ASSIGN BEGIN BOOLEAN CASE CHAR CONST DIV DOWNTO ELSE END EOF EXIT EXTERN FALSE FILE FOR FUNCTION IF IN INTEGER LENGTH LSTRING MOD MODULE NIL NOT OF OR ORD OTHERWISE PACKED PROCEDURE PROGRAM PUBLIC READ READLN REAL RECORD REPEAT RESET RETURN ROUND SEGMENT SET SQRT THEN TO TRUE TYPE UNTIL VAR WHILE WITH WRITE WRITELN